10 SYS2224
20 DV=PEEK(2227):IFPEEK(6)<255THENPRINT" ":END
30 OPEN2,DV,0,"PROG MENU":INPUT#15,E:CLOSE2:IFE>19THEN50
40 LOAD"PROG MENU",DV
50 OPEN2,DV,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
60 LOAD"NOVATERM ?.?*",DV